﻿Imports System
Imports System.Collections.Generic

Namespace System.Workflow.Activities
    <Serializable> _
    Public NotInheritable Class WorkflowRoleCollection
        Inherits List([Of] WorkflowRole)
        ' Methods
        Public Function IncludesIdentity(ByVal identity As String) As Boolean
            If (Not identity Is Nothing) Then
                Dim role As WorkflowRole
                For Each role In Me
                    If ((Not role Is Nothing) AndAlso role.IncludesIdentity(identity)) Then
                        Return True
                    End If
                Next
            End If
            Return False
        End Function

    End Class
End Namespace

